mybootstrap <- function(dados)
{
	num = length(dados)
    resamples <- lapply(1:num, function(i) sample(dados, replace=T))
    sapply(resamples, mean)
}

